GETSUBSTR LibreOffice 的函数 Calc

GETSUBSTR() 说明

GETSUBSTR() 函数旨在通过给定分隔符选择部分文本。

GETSUBSTR函数代码通过指定的分隔符将文本分割成数组，并根据指定的序号返回给定数组的元素。

StarBASIC GETSUBSTR 的代码

下面是创建自定义函数 GETSUBSTR 的宏代码，该函数可以将文本拆分为多个部分并在 LibreOffice 程序 Calc 中检索其中的任何元素。

要添加新函数，请打开菜单 Tools - Macros - Edit Macros...，选择 Module1 并将以下文本复制到模块中：

Function GETSUBSTR(Txt, Delimiter, n) As String  
   Dim txtArray As Variant  
     
     If Txt = "" Then Exit Function
     
      txtArray = Split(Txt, Delimiter) 
      maxExt = UBound(txtArray)
      
      If n >= 0 Then 
        normExt = n - 1
      Else      
        normExt = maxExt + n + 1
      EndIf      
       
      extToFind = Max(Min(maxExt, normExt), 0)
      
      GETSUBSTR = txtArray(extToFind)
     
End Function

然后，关闭 Macro Editor，返回到 LibreOffice Calc 并在任何单元格中使用新函数。

使用扩展

您还可以使用该功能 GETSUBSTR() 通过安装免费扩展 YouLibreCalc.oxt 或其全功能版本 YLC_Utilities.oxt 。

之后，该功能将在 LibreOffice Calc 中打开的所有文件中可用。